home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mfix0712.zip / M-PC0712.FIX < prev    next >
Text File  |  1992-07-12  |  4KB  |  91 lines

  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\TEMP\RBBS-PC.BAS to produce E:\RBBS\CHAT\RBBS-PC.BAS
  3. * E:\RBBS\TEMP\RBBS-PC.BAS:  Date 7-7-1992  Size 157790 bytes
  4. * ------------[ Created 07-12-1992 19:56:27 ]------------
  5. * REPLACING old line(s) by new
  6. 4380 WasA1$ = "Msg #" + _
  7.            STR$(LowMsgNumber) + _
  8.            "-" + _
  9.            MID$(STR$(ZMsgPtr(ActiveMessages,2)),2) + _
  10.            " (H)lp,S)ince,L)ast" + _
  11.            LEFT$(",G)lobal",8*(ZLinkedConf$ ="" OR ZGlobalRead)+8)
  12. * ------[ first line different ]------
  13.      CALL SkipLine (-QuickScanMsgs)                                  ' KG062301
  14.      IF ZGlobalRead THEN _
  15.         CALL QuickTPut1 ("Reading globally")
  16.      IF AddressedToUser OR ToRequested OR FromRequested THEN _
  17.         ZWasY$ = LEFT$("TO",-2*(ToRequested OR AddressedToUser)) + _
  18.              LEFT$("/",-AddressedToUser) + _
  19.              LEFT$("FROM",-4*(FromRequested OR AddressedToUser)) : _
  20.         CALL QuickTPut1 ("Include only msgs "+ZWasY$+" you.  Read what msgs (? for help)") _
  21.      ELSE WasA1$ = WasA1$ + ",T)o,F)rom,M)" : _
  22.           IF ReadMsgs AND ZMarkedMsgs$ <> "" THEN _
  23.              WasA1$ = WasA1$ + "arked" _
  24.           ELSE WasA1$ = WasA1$ + "ine"
  25.      IF SearchString$ = "" THEN _
  26.         WasA1$ = WasA1$ + _
  27.              ", text" _
  28.      ELSE CALL QuickTPut1 ("Include only msgs with text " + SearchString$ + ".  Read what msgs (? for help)")
  29. * REPLACING old line(s) by new
  30. 4418 ZWasA = INSTR("FfTt",ZUserIn$(ZAnsIndex))
  31.      IF ZWasA > 0 THEN _
  32.         ToRequested = (ZWasA > 2) : _
  33.         FromRequested = (ZWasA < 3) : _
  34.         GOTO 4370
  35.      IF CurMsg = 0 THEN _
  36.         IF SearchHeader$ <> "" THEN _
  37.            GOTO 4370 _
  38.         ELSE SearchString$ = ZUserIn$(ZAnsIndex) : _
  39.              SearchCt = 0 : _
  40.              CALL AllCaps (SearchString$) : _
  41.              CALL Remove (SearchString$,CHR$(34) + CHR$(39)) : _
  42.              SearchHeader$ = SearchString$ : _
  43.              SubInHeader$ = SearchHeader$ : _
  44.              GOTO 4370
  45. * ------[ first line different ]------
  46.      CALL SkipLine (-ReadMsgs)                                       ' KG062301
  47. * REPLACING old line(s) by new
  48. * ------[ first line different ]------
  49. 4631   IF NOT Forward AND NOT Reverse THEN _                         ' KG062301
  50.           GOTO 4370                                                  ' KG062301
  51.         CALL CheckCarrier                                            ' KG062301
  52.        IF ZSubParm THEN _
  53.           RETURN 10595
  54.        IF ZRet THEN _
  55.           RETURN
  56. * REPLACING old line(s) by new
  57. 4765 CALL UpdtCalr ("Paged & chatted with Sysop",1)
  58.      CALL SkipLine (1)                    'SM091905
  59.          ZPageStatus$ = ""
  60.      ZSysopGreeting$ = "SysOp in!  " + ZFirstName$ + ", this is " + _ ' DD062801/ANSICHAT
  61.                        ZSysopFirstName$ + ", go ahead!"             ' DD062801/ANSICHAT
  62. * ------[ first line different ]------
  63. * REPLACING old line(s) by new
  64. * ------[ first line different ]------
  65.     4770 IF ZANSITest = ZTrue OR ZWasGR > 1 THEN                        ' DD062801/ANSICHAT
  66.         CALL ANSIChat                                               ' DD062801/ANSICHAT
  67.      ELSE                                                           ' DD062801/ANSICHAT
  68.         CALL SkipLine (1)                                           ' DD062801/ANSICHAT
  69.         CALL QuickTPut1 (ZSysopGreeting$)                           ' DD062801/ANSICHAT
  70.         CALL SysopChat                                              ' DD062801/ANSICHAT
  71.      END IF                                                         ' DD062801/ANSICHAT
  72.      IF ZSubParm < 0 THEN _
  73.         GOTO 202
  74.      RETURN
  75. '
  76. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***  'Pe 09/02/91
  77. '
  78. * REPLACING old line(s) by new
  79. 10560 GOSUB 41000      'Pe 02/04/90
  80.       IF ZExpertUser THEN ZLogoff$ = "L"
  81. * ------[ first line different ]------
  82. * REPLACING old line(s) by new
  83. 10986 ZWasZ$ = ZFileName$
  84.       CALL DoorExit (NOT InMenu)
  85.       Call QuickTput1 ("Welcome back " + ZFirstName$ + " ...") 'Pe 12/23/91
  86. * ------[ first line different ]------
  87.       Return 1232      'Pe 07/12/92
  88. '
  89. ' *  5 - COMMAND FROM SYSOP MENU (USER FILE MAINTENANCE)
  90. '
  91.